home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / MultiRen / MultiRen-Install < prev    next >
Text File  |  2002-10-27  |  3KB  |  103 lines
  1. ; $VER: MultiRen-Install v1.52 (19.08.02)
  2. ; Installer script made by Stefan Blixth, OnyxSoft
  3.  
  4. (set #welcome "\nWelcome to MultiRen 1.52 installer.\n© 1999-2002 Daniel Westerberg, OnyxSoft.\n\nCheck our homepage for more stuff ;-)\n\nwww.onyxsoft.nu\n")
  5. (set #endmsgs "MultiRen has now been installed on your system.\n\nDon't forget to register the program.\nIt's totaly free!!!\n\nPlease use the Easy Register option which pops up when you start an unregistered copy of MultiRen!")
  6.  
  7. (message #welcome)
  8. (welcome)
  9. (complete 0)
  10.  
  11. ; - create destination dir
  12.  
  13. (set destination
  14.   (askdir (prompt "Please select the destination directory for MultiRen.\nA sub-directory \"MultiRen\" will be created.")
  15.     (default @default-dest)
  16.     (help @askdir-help)
  17.   )
  18. )
  19.  
  20. (set @default-dest destination)
  21.  
  22. (set destination (expandpath destination))
  23. (set destination (tackon destination "MultiRen"))
  24.  
  25. (if (<> 0 (exists destination))
  26. (
  27.   (message "There is an older installation of MultiRen in the same directory.\n\nIt will be overwritten! (not backed up as before)\n\nAny plugin-settings except the substitute list will also be overwritten!")
  28.     (run (cat "copy \"" destination "/Plugins/Substitute.list\" T:"))
  29.     (run (cat "delete \"" destination "\" >nil:"))
  30.     (run (cat "delete \"" destination ".info\" >nil:"))
  31.   )
  32. )
  33.  
  34. (makedir destination)
  35. (run (cat "copy /MultiRen.info \"" destination ".info\""))
  36.  
  37. (complete 25)
  38.  
  39. ; - copy main files
  40.  
  41. (copyfiles (prompt "Copying ...") (source "MultiRen") (dest destination) (help @copyfiles-help) )
  42. (copyfiles (prompt "Copying ...") (source "MultiRen.info") (dest destination) (help @copyfiles-help) )
  43. (copyfiles (prompt "Copying ...") (source "MultiRen.guide") (dest destination) (help @copyfiles-help) )
  44. (copyfiles (prompt "Copying ...") (source "MultiRen.guide.info") (dest destination) (help @copyfiles-help) )
  45. (copyfiles (prompt "Copying ...") (source "MultiRen.readme") (dest destination) (help @copyfiles-help) )
  46. (copyfiles (prompt "Copying ...") (source "MultiRen.readme.info") (dest destination) (help @copyfiles-help) )
  47.  
  48. (complete 50)
  49.  
  50. ; - copy plugins
  51.  
  52. (makedir (cat destination "/Plugins"))
  53. (copyfiles
  54.   (prompt "Copying...")
  55.   (source "Plugins/")
  56.   (pattern "#?")
  57.   (dest (cat destination "/Plugins"))
  58. )
  59. (run (cat "copy T:Substitute.list \"" destination "/Plugins/\""))
  60. (run (cat "delete T:Substitute.list"))
  61.  
  62. (complete 66)
  63.  
  64. ; - copy plugins
  65.  
  66. (makedir (cat destination "/Lists"))
  67. (copyfiles
  68.   (prompt "Copying...")
  69.   (source "Lists/")
  70.   (pattern "#?")
  71.   (dest (cat destination "/Lists"))
  72. )
  73. (run (cat "copy T:Substitute.list \"" destination "/Plugins/\""))
  74. (run (cat "delete T:Substitute.list"))
  75.  
  76. (complete 83)
  77.  
  78. ; - copy developers stuff..
  79.  
  80. (set choice
  81.   (askchoice
  82.     (prompt "Do you want to install the developer files ?")
  83.     (help @askoptions-help)
  84.     (choices "Yes" "No")
  85.     (default 0)
  86.   )
  87. )
  88.  
  89. (if (= 0 choice)
  90.   (
  91.     (makedir (cat destination "/Developers"))
  92.     (copyfiles
  93.       (prompt "Copying...")
  94.       (source "Developers/")
  95.       (pattern "#?")
  96.       (dest (cat destination "/Developers"))
  97.     )
  98.   )
  99. )
  100.  
  101. (complete 100)
  102. (message #endmsgs)
  103. (exit)